home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / mem / MPW Helpers / Menus / UserStartup•Format next >
Encoding:
Text File  |  1993-08-26  |  905 b   |  23 lines  |  [TEXT/MPS ]
  1. #
  2. #  MPW Shell UserStartup script to define Format menu items.
  3. #
  4.  
  5. Set FormatMenu 'Misc'    # Define under which title to put menu items.
  6. Set FormatWidth 72        # Define default Format parameters
  7. Set FormatTab 0            # …
  8. Set FormatOption ''        # …
  9. AddMenu "{FormatMenu}" '(-' ''    # Draw a separator line (not needed if first item)
  10. AddMenu "{FormatMenu}" 'Format Text/P' ∂
  11.     'iformat {FormatOption} -w {FormatWidth} -t {FormatTab} < "{Active}".§ | ∂
  12.     cat > "{Active}".§'
  13. AddMenu "{FormatMenu}" 'Format Comments/K' ∂
  14.     'iformat {FormatOption} -c -w {FormatWidth} -t {FormatTab} < "{Active}".§ | ∂
  15.     cat > "{Active}".§'
  16. AddMenu "{FormatMenu}" 'Fully Justify' ∂
  17.     'iformat {FormatOption} -w {FormatWidth} -t {FormatTab} -j < "{Active}".§ | ∂
  18.     cat > "{Active}".§'
  19. AddMenu "{FormatMenu}" 'Fully Justify All' ∂
  20.     'iformat {FormatOption} -w {FormatWidth} -t {FormatTab} -jJ < "{Active}".§ | ∂
  21.     cat > "{Active}".§'
  22. Unset FormatMenu
  23.